	ORG	$4C00
START:	MOVE.L	#7,D0
	NOP	*FMOVE	D0,FP4
	NOP	*FMOVE second word
	NOP	*FMUL	D0,FP4
	NOP	*FMUL second word
	NOP	*FMOVE	FP4,D0
	NOP	*FMOVE second word
	MOVE.L	#24,D1
	NOP	*FMOVE	D1,FP4
	NOP	*FMOVE second word
	NOP	*FMUL	D1,FP4
	NOP	*FMUL second word
	NOP	*FADD	D0,FP4
	NOP	*FADD second word
	NOP	*FMOVE	FP4,D0
	NOP	*FMOVE second word
	NOP	*FSQRT	D0,FP4
	NOP	*FSQRT second word
	NOP	*FMOVE	FP4,D0
	NOP	*FMOVE second word

	MOVE.L	D0,D3
	LEA	FORMU,A4	Print the formula we are processing
	MOVE.B	#4,D1
	TRAP 	#0
	
	MOVE.B	#48,D0		this loop gets the hex result
CMPDEC	CMP.B	#10,D3		into two decimal numbers to print
	BLO	DECCOM
	SUB.B	#10,D3
	ADD.B	#1,D0
	BRA	CMPDEC
DECCOM	ADD.B	#48,D3
	
	
	MOVE.B	#1,D1		print tens digit
	TRAP	#0
	
	MOVE.B	D3,D0		print ones digit
	MOVE.B	#1,D1
	TRAP	#0
	
	TRAP	#15		end program
	
FORMU	DC.L	'SQRT(7^2 + 24^2) = ',0
	END	START



*~Font name~Courier New~
*~Font size~10~
*~Tab type~1~
*~Tab size~8~
